Inventor Labs: Technology/INVENTORLABS_TECHNOLOGY.BIN/mac/FILES/SHARED.CST/00023_Script_Score Event Object

Text File | 1997-07-24 | 5KB | 187 lines

--o:     Score  Event Obj


--Instantiated as gScoreEventObj



global gAreaManagerObj, gModeManager, gQTNavMgr, gUtilityObj, gMouseDownExp

----------------------------------------------------------ò
on mInit me

  set gMouseDownExp = FALSE
  return me

end mInit
----------------------------------------------------------ò
on mWaitForQTandPullOut me, argQTSprite        --called from exitframe script

  if the movierate of sprite argQTSprite = 1 then
    go the frame
  else
    set the loch of sprite argQTSprite = -1000
    sound stop 1
    mPlayAmbient( gUtilityObj )
    go the frame + 1
    mClickEvent(gAreaManagerObj)
  end if

end mWaitForQTandPullOut
----------------------------------------------------------ò
on mStopMovAndPullOut me, argQTSprite          --called from mouseUp Script

  if soundbusy(2) then sound stop 2
  if the casttype of cast (the castnum of sprite argQTSprite) = #DigitalVideo then
    set the movieRate of sprite argQTSprite = 0     --frame for safe QTVR playback
    set the locv of sprite argQTSprite = -1000
    updatestage
    mPlayAmbient( gUtilityObj )
  end if

  set the locv of sprite argQTSprite = -1000
  updatestage

  go the frame + 1
  mClickEvent(gAreaManagerObj)

end mStopMovAndPullOut
----------------------------------------------------------ò
on mStopMovGoFrameAndPullOut me, argQTSprite, argFrameLabel
  --called if need to go to non-adjacent

  if the casttype of cast (the castnum of sprite argQTSprite) = #DigitalVideo then
    set the locv of sprite argQTSprite = -1000
    set the movieRate of sprite argQTSprite = 0     --frame for save QTVR playback
    sound stop 1
    updatestage
    mPlayAmbient( gUtilityObj )
  end if
  set the loch of sprite argQTSprite = -1000
  updatestage

  go frame argFrameLabel
  mClickEvent(gAreaManagerObj)

end mStopMovGoFrameAndPullOut


----------------------------------------------------------ò
on mGoFrameAndPullOut me, argFrameLabel
  --called if need to go to non-adjacent

  sound stop 1
  --  mPlayAmbient( gUtilityObj )
  go frame argFrameLabel
  mClickEvent(gAreaManagerObj)

end mStopMovGoFrameAndPullOut

----------------------------------------------------------ò
on mPullOut me                                   --called from a non-QT frame         ---/ temporary measure; unused

  mClickEvent(gAreaManagerObj)
  cursor -1

end mPullOut
----------------------------------------------------------ò
on mWaitForQTandGoArea me, argQTSprite

  if the movieRate of sprite argQTSprite = 1 then go the frame
  else
    set the locv of sprite argQTSprite = -1000
    updatestage
    mPlayAmbient( gUtilityObj )
    mChangeMode(gModeManager, #Area)
  end if

end mWaitForQTandGoArea

----------------------------------------------------------ò
on mStopMovPullOutToArea  me, argQTSprite

  set the movierate of sprite argQTSprite = 0
  set the locv of sprite argQTSprite = -1000
  updatestage
  mChangeMode(gModeManager, #area)

end mPullOutToArea
----------------------------------------------------------------------------ò

on mPullOutToArea me

  sound stop 2
  mChangeMode(gModeManager, #area)

end mPullOutToArea
----------------------------------------------------------------------------ò
on mResetQT me, argWhatSprite

  sound stop 1
  sound stop 2
  updatestage

  set the movieTime of sprite argWhatSprite = 0
  set the movieRate of sprite argWhatSprite = 1

end mResetQT
----------------------------------------------------------------------------ò
on mWaitforQT me, argQTSprite

  if the movieRate of sprite argQTSprite = 0 then
    set the loch of sprite argQTSprite = -1000
    updatestage
    mPlayAmbient( gUtilityObj )
    go the frame + 1
  else
    go the frame
  end if

end mWaitforQT
----------------------------------------------------------------------------ò
on mWaitForQTandGoFrame me, argQTSprite, argFrameName

  if the movieRate of sprite argQTSprite = 0 then
    set the locv of sprite argQTSprite = -1000
    updatestage
    mPlayAmbient( gUtilityObj )
    go frame argFrameName
  else
    go the frame
  end if

end mWaitForQTandGoFrame
----------------------------------------------------------------------------ò
on mCloseExplorableStopQTAndPullOut me, argQTsprite

  if not gMouseDownExp then
    set the locv of sprite argQTsprite = -1000
    -- updatestage
    mPlayAmbient( gUtilityObj )
    mDeactivate(gQTNavMgr)
    mClearToolMenu ( gInterfaceMgrObj )
    mStopMovAndPullOut(me, argQTsprite)
  else set gMouseDownExp = FALSE

end mCloseExplorableAndPullOut
----------------------------------------------------------------------------ò

on mStopMovCloseExpGoFrame me, argQTSprite, argFrameLabel

  if the casttype of cast (the castnum of sprite argQTSprite) = #DigitalVideo then
    set the movieRate of sprite argQTSprite = 0     --frame for save QTVR playback
    set the locv of sprite argQTSprite = -1000
    updateStage
    mPlayAmbient( gUtilityObj )
  end if

  mDeactivate(gQTNavMgr)
  set the loch of sprite argQTSprite = -1000
  updatestage
  go frame argFrameLabel
  mClickEvent(gAreaManagerObj)



end mStopMovCloseExpGoFrame
----------------------------------------------------------ò